subroutine print_profile_msg(lunit,t_array0,n,myrank)
  implicit none
  integer,intent(in) :: lunit,n,myrank
  integer,intent(in) :: t_array0(8)

  character(len=8) :: d_time_str
  
  call print_d_time(t_array0,d_time_str)

  if (myrank.eq.0) call terminal_msg1("")
  if (myrank.eq.0) &
       print '(1x,">",1x,a8,":TEMPERATURE PROFILE ID=",i2.2)',&
       d_time_str(1:8),n

  call log_msg1(lunit,"")
  write(lunit,'(1x,">",1x,a8,":TEMPERATURE PROFILE ID=",i2.2)') &
       d_time_str(1:8),n

  return

end subroutine print_profile_msg
